home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / 1-bc-cad.zip / SCAL.LSP < prev    next >
Text File  |  1992-05-11  |  382b  |  15 lines

  1. ;THIS FILE WILL SCALE OBJECTS BY THIER INSERTION POINTS
  2. (defun c:scal ()
  3.   (command)
  4.   (setq SC (getreal "\nSCALE FACTOR: "))
  5.   (command)
  6.   (prompt "\nSelect objects, ")
  7.   (setq ssloop (ssget))
  8.   (setq i 0)
  9.   (while (setq obj (ssname ssloop (- (setq i (1+ i)) 1)))
  10.     (setq inspt (cdr (assoc '10 (entget obj))))
  11.     (command "SCALE" OBJ "" INSPT SC)
  12.   )
  13.   (prin1)
  14. )
  15.